scripts/shorten strip.R

# scrape content from /shorten html/


html.files <- list.files("/Users/rosseji/Dropbox/TrendLock/data/speeches/shorten html/", full.names = T)


html.files2 <- html.files[1130:1150]



df <- html.files2 %>%
  map( ~ shorten_scrape(.x)) %>%
  bind_rows()




write_csv(df, "/Users/rosseji/Dropbox/TrendLock/data/speeches/sentences_BS.csv")
trendlock/speeches documentation built on May 8, 2019, 9:46 a.m.